home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 187
/
187.d81
/
b.love songs ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
124 lines
8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
10 dv=peek(186):ifdv<8thendv=8
20 poke53281,0:poke53280,0:print"[147]":gosub60000
30 sys57812"love2 mouse 2.1",dv,0:poke780,0:poke781,0:poke782,64:sys65493
32 sys57812"love2 font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
34 sys57812"love2 sid",dv,0:poke780,0:poke781,0:poke782,192:sys65493
35 ifti<tq+200then35
36 sys49615
38 d%(1)=74
40 fori=1to8
42 readf$(i),n$(i)
44 sys57812f$(i),dv,0:poke780,0:poke781,0:poke782,d%(i):sys65493
46 d%(i+1)=peek(175)+1:e(i)=peek(174)+256*peek(175)
48 next
50 data"mymelancholy.mus","my melancholy baby"
51 data"telegraph.mus","telegraph my baby"
52 data"apple tree.mus","shade of apple tree"
53 data"put r arms.mus","put your arms around"
54 data"shines nelly.mus","til sun shines nellie"
55 data"silvery moon.mus","light of silvery"
56 data"love w/me.mus","i can't believe you"
57 data"rainbows.mus","chasing rainbows"
64 ml=64*256:mv=ml+156:v=53248
66 pokemv+1,158
68 pokev+21,0:sysml:sysml+6,14*64
70 print"[147]":poke53272,31:sysml+126,0,38,0,24,126,127,10,7
78 sysml+30,3,36,2,9,255,9
80 sysml+30,2,35,1,8,160,2+16
88 print"[150]";
90 sysml+27,2,"loadstar proudly presents
92 [153]"print";
94 [158]ml[170]27,3,"corky's emotional
96 sysml+27,4,"b a l l a d s o f[154]
100 [158]ml[170]12,6,5,"len chr$(NULL)(NULL)left$ (NULL)getabs^ (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)
102 sysml+12,6,6,"[196] [203] [204] [255][161][182]^ [218][193] [213] [213]
104 [158]ml[170]12,6,7,"valascasc mid$(NULL)(NULL)right$ (NULL)(NULL) (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) "
112 [158]ml[170]39,160
120 [158]ml[170]30,3,26,12,23,255,9
122 [158]ml[170]30,2,25,11,22,160,7[170]16
130 [158]ml[170]30,29,36,12,23,255,9
132 [158]ml[170]30,28,35,11,22,160,7[170]16
140 [158]ml[170]12,30,12,"openplaycmdcmdcmdcmdsongcmdcmdcmdcmdcmdcmdsys-tantantantantantan<opencmdcmdcmdcmdcmdcmdplaycmdcmdcmdcmdall"
142 [158]ml[170]12,28,17,"sys-tantantantantantan<cmdcmdcmdcmdcmdcmdopensongcmdcmdcmdcmdinfocmdcmdcmdcmdcmdcmdsys-tantantantantantan<cmdcmdcmdcmdcmdcmdopenquit"
150 [158]ml[170]15,1,29,34,12,13
152 [158]ml[170]15,2,29,34,15,16
154 [158]ml[170]15,3,29,34,18,19
156 [158]ml[170]15,4,29,34,21,21
160 [129]i[178]1[164]8
162 [158]ml[170]12,4,12[170]i,n$(i)
164 [158]ml[170]15,4[170]i,3,24,12[170]i,12[170]i
166 [130]
200 [158]ml[170]9
204 [139]rg%[167][158]ml[170]36,rg%,255,1:[158]ml[170]24,2:[158]ml[170]36,rg%,255,3
210 [139]cr%[167]230
220 [137]200
230 [139]cr%[178]1[167][141]300:[137]200 [143] play
240 [139]cr%[178]2[167][141]400:[137]200:[143] play all
250 [139]cr%[178]3[167][141]500:[137]200:[143] info
260 [139]cr%[178]4[167][158]ml[170]3:[151]49152,0:[158]49897:[158]49935:[153]"load":[137]40000:[143] quit
268 g[178]cr%
270 [158]ml[170]30,2,25,11,22,160,7[170]16
272 [129]i[178]1[164]8
274 [158]ml[170]12,4,12[170]i,n$(i)
276 [130]
280 [158]ml[170]36,g,255,14[170]128
290 [137]200
300 [139]g[178]0[167][142]
302 p[178]1:[141]500:p[178]0
310 [151]781,0:[151]782,d%(g[171]4)
320 [158]49664:[151]49152,7
330 [158]ml[170]9
332 [139][194](49152)[178]0[167]350
340 [139]l2%[178]0[167]330
350 [151]49152,0:[158]49897
352 [158]ml[170]42,168
360 [142]
400 [129]g[178]5[164]12
410 [141]300
420 [130]
430 [142]
500 [139](g[179]1)[176](g[177]12)[167][142]
502 [158]ml[170]39,168:[158]ml[170]42,160
510 [158]ml[170]30,2,37,13,21,255,9
520 [158]ml[170]30,1,36,12,20,255,7[170]16
530 [151]214,13:[153]:[153][163]2);
540 h[178]e(g[171]4)
550 [129]i[178]h[164]h[171]200[169][171]1
560 [139][194](i)[178]1[167]s[178]i:i[178]h[171]200
570 [130]
580 [129]i[178]2[164]200:[139][194](i[170]s)[178]0[167]i[178]200:[137]590
582 [153][199]([194](i[170]s));:[139][194](i[170]s)[178]13[167][153]"";
590 [130]
592 [139]p[167][142]
600 [158]ml[170]9
610 [139]l2%[178]0[167]600
620 [158]ml[170]42,168
630 [142]
999 [137]999
10000 d[178][194](186):n$[178]"0:b.love songs ii":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
40000 [151]53269,0
40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"load":[151]214,4:[153]:[153][163]5)"sysstr$edicated to my (NULL)ate (NULL)ister"
60005 [153][163]1)"str$iana (NULL)ay mid$efferson 12/27/48 - 6/16/99"
60008 [153]:z$[178]" print# ":[151]214,10:[153]
60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
60030 z$(0)[178]" peek atn (NULL) (NULL) atn str$ (NULL) (NULL) asc (NULL) (NULL) (NULL) val right$right$ closeclose
60040 z$(2)="by [195]orky [195]ochran
60050 z$(4)[178]"(c) 2000 by mid$ & asc (NULL)ublishing, right$nc."
60060 z$(6)[178]"(NULL)his product is not shareware
60070 z$(7)="or in the public domain."
60080 z$(9)="[195]all to [211]ubscribe 1-318-868-8727
60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
60100 [129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]